home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / visds / propties.dsc < prev    next >
Encoding:
Text File  |  1999-05-02  |  2.3 KB  |  97 lines
  1.     title Property Pages
  2.     gosub getdata
  3.     OPTION SCALE,96
  4.   DIALOG CREATE,Properties,-1,0,354,232
  5.   DIALOG ADD,TAB,TAB1,4,6,340,186,Tab 1|Tab 2|Tab 3
  6.   DIALOG ADD,BUTTON,OK,200,120,72,24,OK
  7.   DIALOG ADD,BUTTON,Cancel,200,192,72,24,Cancel
  8.   DIALOG ADD,BUTTON,Apply,200,274,72,24,Apply
  9.   DIALOG ADD,GROUP,GROUP1,31,15,320,148
  10.   DIALOG SHOW
  11.     if @not(%1)
  12.         REM allow initial tab to be specified on command-line
  13.         %1 = Tab 1
  14.         gosub %1OPEN
  15.     end
  16. :evloop
  17.     wait event
  18.     %E = @event()
  19.     goto %E
  20. :Tab 1CLICK
  21. :Tab 2CLICK
  22. :Tab 3CLICK
  23.     %2 = @substr(%E,1,-5)
  24.     gosub %1CLOSE
  25.     shift
  26.     gosub %1OPEN
  27.     goto evloop
  28. :ApplyBUTTON
  29.     gosub savedata
  30.     goto evloop
  31. :OKBUTTON
  32.     gosub savedata
  33. :CancelBUTTON
  34. :CLOSE
  35.     exit
  36. :Tab 1OPEN
  37.     DIALOG SET,GROUP1," Properties page 1 "
  38.   DIALOG ADD,TEXT,TEXT2,54,24,,,Name:
  39.   DIALOG ADD,EDIT,EDIT1,52,68,240,19,%%name
  40.   DIALOG ADD,TEXT,TEXT3,80,24,,,Address:
  41.   DIALOG ADD,EDIT,EDIT2,78,68,240,90,%%address,MULTI,TABS
  42.     exit
  43. :Tab 2OPEN
  44.     DIALOG SET,GROUP1," Properties page 2 "
  45.   DIALOG ADD,CHECK,CHECK1,52,68,180,18,Use Email?,%%use
  46.   DIALOG ADD,TEXT,TEXT2,80,24,,,Email:
  47.   DIALOG ADD,EDIT,EDIT1,78,68,240,19,%%email
  48.     exit
  49. :Tab 3OPEN
  50.     DIALOG SET,GROUP1," Properties page 3 "
  51.   DIALOG ADD,CHECK,CHECK1,48,48,180,18,Other Stuff 1,%%other1
  52.   DIALOG ADD,CHECK,CHECK2,72,48,180,18,Other Stuff 2,%%other2
  53.   DIALOG ADD,CHECK,CHECK3,96,48,180,18,Other Stuff 3,%%other3
  54.   DIALOG ADD,CHECK,CHECK4,120,48,180,18,Other Stuff 4,%%other4
  55.     exit
  56. :Tab 1CLOSE
  57.     %%name = @dlgtext(EDIT1)
  58.     %%address = @dlgtext(EDIT2)
  59.     DIALOG REMOVE,TEXT2
  60.     DIALOG REMOVE,EDIT1
  61.     DIALOG REMOVE,TEXT3
  62.     DIALOG REMOVE,EDIT2
  63.     exit
  64. :Tab 2CLOSE
  65.     %%use = @dlgtext(CHECK1)
  66.     %%email = @dlgtext(EDIT1)
  67.     DIALOG REMOVE,CHECK1
  68.     DIALOG REMOVE,TEXT2
  69.     DIALOG REMOVE,EDIT1
  70.     exit
  71. :Tab 3CLOSE
  72.     %%other1 = @dlgtext(CHECK1)
  73.     %%other2 = @dlgtext(CHECK2)
  74.     %%other3 = @dlgtext(CHECK3)
  75.     %%other4 = @dlgtext(CHECK4)
  76.     DIALOG REMOVE,CHECK1
  77.     DIALOG REMOVE,CHECK2
  78.     DIALOG REMOVE,CHECK3
  79.     DIALOG REMOVE,CHECK4
  80.     exit
  81.  
  82. :getdata
  83.     REM in a real example this data would probably be
  84.     REM got from the registry
  85.     %%name =
  86.     %%address =
  87.     %%use =
  88.     %%email =
  89.     exit
  90.     
  91. :savedata
  92.     REM this subroutine does nothing.
  93.     REM it is run when OK or Apply are clicked.
  94.     REM in a real example it would probably save the data
  95.     REM to the Registry.
  96.     exit
  97.